home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / games / fibsw130.zip / DELPHI.SCC < prev    next >
Text File  |  1994-08-03  |  3KB  |  91 lines
  1. @echo 0 ;%%Delphi (direct-dial)
  2. @rem ******************************************************************
  3. @rem ****                                                         *****
  4. @rem ****   This script logs on to Delphi directly                *****
  5. @rem ****   Grateful acknowledgements and thanks to Cary Camden.  *****
  6. @rem ****                                                         *****
  7. @rem ****                                                         *****
  8. @rem ******************************************************************
  9.  
  10. @rem ***dial using dial.scr
  11. <dial.scr
  12.  
  13. @rem *****************************************************
  14. @rem ***  Execute the login procedure                   **
  15. @rem *****************************************************
  16.  
  17. @if "%HostLoginName%" != ""
  18. @:RetryLogin
  19. @   if "%NetworkScript%" == "manual.scn"
  20. @       wait "sername:"   ; If manual network connect, don't prompt or timeout for login
  21. @   else
  22. @       echo "\r\n** Logging in...\r\n"
  23. @       if not @wait "sername:" 40    
  24. @           echo "\r\n** Error(delphspr.scc): error - Host Login Prompt not received\r\n"
  25. @           send "\r"
  26. @           goto RetryLogin
  27. @       endif
  28. @   endif
  29. @   send "%HostLoginName%\r"
  30. @   if not @wait "\n" 40
  31. @      echo "\r\n** Error(delphspr.scc): No response to Host Login Name\r\n"
  32. <
  33. @   endif
  34. @   if "%HostPassword%" != ""
  35. @       if not @wait "assword:" 30  ; e.g. "Password:" or "password:"
  36. @           echo "\r\n** Error(delphspr.scc): Host Password prompt not received\r\n"
  37. <
  38. @       endif
  39. @       send "%HostPassword%\r"
  40. @       if not @wait "\n" 40
  41. @           echo "\r\n** Error(delphspr.scc): No response to Host Password\r\n"
  42. <
  43. @       endif
  44. @   else
  45. @       rem ** We need to synchronize around the password **
  46. @       echo "\r\n** Automated login script will resume after you enter your password\r\n"
  47. @       if not @wait "assword:" 40
  48. @          echo "\r\n** Error(delphspr.scc): Host password prompt not received\r\n"
  49. <
  50. @       endif
  51. @       passwordEntry 1
  52. @       wait "\n" 
  53. @       passwordEntry 0
  54. @   endif ; HostPassword
  55. @else 
  56. @   if "%NetworkScript%" != "manual.scn"  ; No prompts if manual network connect
  57. @       echo "\r\n** Automated login script will resume after login is complete\r\n"
  58. @   endif
  59. @   wait "sername:"
  60. @   wait "assword:"
  61. @   passwordEntry 1
  62. @   wait "\n"
  63. @   passwordEntry 0
  64. @endif ; HostLoginName
  65.  
  66.  
  67. @rem ***************************************************
  68. @rem *** Go from MAIN Prompt to Internet Conference ****
  69. @rem ***************************************************
  70.  
  71. @delphifix 1 ; // Ignore LFs, CR -> CR+LF.
  72.  
  73. @wait "MAIN>What do you want to do? "
  74.  
  75. @send "/busy\r"    ;disables confernce messages
  76. @wait "MAIN>What do you want to do? "
  77.  
  78. @send "/prompt=brief\r"
  79. @wait "MAIN>What do you want to do? "
  80.  
  81. @send "/width 255\r"
  82. @wait "MAIN>What do you want to do? "
  83.  
  84. @send "/echo HOST\r"
  85. @wait "MAIN>What do you want to do? "
  86.  
  87.  
  88. @send "go Int telnet %FibsInternetAddress% %FibsTelnetPort%\r"
  89.  
  90. <fibslogn.scr
  91.